home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 April / CHIP 1996 aprilis (CD06).zip / CHIP_CD06.ISO / sac / pack / rarbatch.exe / rar / ARJ2RAR.BAT < prev    next >
DOS Batch File  |  1994-12-27  |  2KB  |  76 lines
  1. REM ■■■ To convert ARJ files to ~RAR~ ■■■
  2.  
  3. @Echo off
  4. if %1A==A goto Usage
  5. if %1==* goto Mask
  6. if %1==*.arj goto Mask
  7. goto Single
  8. :Mask
  9. if exist *.arj goto MaskYeah
  10. echo %1 -- files cannot be found.
  11. echo %1 -- files cannot be found. >>!arj2rar.!!!
  12. goto Exit
  13. :MaskYeah
  14. if exist *. ren *.$e$
  15. ren *.arj *.
  16. for %%f in (*.) do call arj2rar %%f
  17. if exist *.$e$ ren *.$e$ *.
  18. goto Quit
  19. :Single
  20. echo ARJ2RAR v0.03 (c) AS, RAR Support              Free!
  21. if exist %1.arj goto Ok
  22. if exist %1 goto Ok
  23. goto ErrFNF
  24. :Ok
  25. if exist %1.rar goto ErrRARe
  26. mkdir $for-arj
  27. if exist %1.arj goto WExt
  28. goto NoExt
  29. :WExt
  30. ren %1.arj *.
  31. :NoExt
  32. arj x -y -v -u %1. $for-arj
  33. if errorlevel 1 goto ErrExtr
  34. if not exist *.* goto ErrExtr
  35. cd $for-arj
  36. rar m -r -s -std -tl ..\%1.rar
  37. if errorlevel 1 goto ErrRAR
  38. cd ..
  39. rd $for-arj
  40. echo %1.ARJ -} %1.RAR repack successfully completed.
  41. if exist %1. erase %1.
  42. Goto Quit
  43. :ErrExtr
  44. ren %1 *.arj
  45. rd $FOR-ARJ
  46. echo %1.ARJ -- File cannot be unpacked because errors!
  47. echo %1.ARJ -- File cannot be unpacked because errors!
  48. >>!arj2rar.!!!
  49. echo  (NOTE, NO EXTENSION PLEASE!!!)
  50. Goto Quit
  51. :ErrRARe
  52. echo %1.RAR -- File already exists. Cannot be repacked!
  53. echo %1.RAR -- File already exists. Cannot be repacked!
  54. >>!arj2rar.!!!
  55. goto Quit
  56. :ErrRAR
  57. cd ..
  58. ren %1 *.arj
  59. rd $FOR-ARJ
  60. echo %1.ARJ -- File cannot be repacked!
  61. echo %1.ARJ -- File cannot be repacked! >>!arj2rar.!!!
  62. echo   (NOTE, NO EXTENSION PLEASE!!!)
  63. Goto Exit
  64. :ErrFNF
  65. echo %1 -- File not found!
  66. echo %1 -- File not found! >>!arj2rar.!!!
  67. Goto Quit
  68. :Usage
  69. echo ARJ2RAR v0.03 (c) AS, RAR Support              Free!
  70. echo   Usage: arj2rar {arjarch}
  71. echo (Note, no extension please!)
  72. :Exit
  73. if exist *.$e$ ren *.$e$ *.
  74. exit
  75. :Quit
  76.